﻿Public Class BanBUS
    Public Function GetBan() As DataTable
        Dim ban As New BanDAO
        Return ban.GetBan()
    End Function
    Public Sub AddBan(ByVal newBan As BanDTO)
        Dim ban As New BanDAO
        ban.AddBan(newBan)
    End Sub
    Public Sub DelBan(ByVal delban As BanDTO)
        Dim ban As New BanDAO
        ban.DelBan(delban)
    End Sub
    Public Sub UpdateBan(ByVal newban As BanDTO)
        Dim ban As New BanDAO
        ban.UpdateBan(newban)
    End Sub
End Class
